home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d2
/
pwrbat14.arc
/
MOVESUB.PWR
< prev
next >
Wrap
Text File
|
1990-10-01
|
4KB
|
110 lines
Variable CLP%1,79
Variable CLP%2,79
Variable PBFile,79
Variable StrLen,2
Variable LastChar,1
Write "Copy from "
Write CLP%1
Write " to "
WriteLine CLP%2
Length StrLen,CLP%1 ;get the last char of CLP%1
MidString LastChar,CLP%1,StrLen,1
Compare LastChar,"\",,,SrcOK ;is it a \
Concat CLP%1,"\" ;if not then add \
Label SrcOK
Length StrLen,CLP%2 ;check last char of CLP%2
MidString LastChar,CLP%2,StrLen,1
Compare LastChar,"\",,,DestOK
Concat CLP%2,"\"
Label DestOK
Concat PBFile,CLP%1,"README.1ST"
?FileExist PBFile,,CopyError
COPY PBFile,CLP%2
Compare DOSError,0,CopyError
Compare ErrorLevel,0,CopyError
Concat PBFile,CLP%1,"PBINSTAL.EXE"
?FileExist PBFile,,CopyError
COPY PBFile,CLP%2
Compare DOSError,0,CopyError
Compare ErrorLevel,0,CopyError
Concat PBFile,CLP%1,"POWERMAK.EXE"
?FileExist PBFile,,CopyError
COPY PBFile,CLP%2
Compare DOSError,0,CopyError
Compare ErrorLevel,0,CopyError
Concat PBFile,CLP%1,"SMLMODEL.MDL"
?FileExist PBFile,,CopyError
COPY PBFile,CLP%2
Compare DOSError,0,CopyError
Compare ErrorLevel,0,CopyError
Concat PBFile,CLP%1,"POWERBAT.DOC"
?FileExist PBFile,,CopyError
COPY PBFile,CLP%2
Compare DOSError,0,CopyError
Compare ErrorLevel,0,CopyError
Concat PBFile,CLP%1,"DOSEX1.BAT"
?FileExist PBFile,,CopyError
COPY PBFile,CLP%2
Compare DOSError,0,CopyError
Compare ErrorLevel,0,CopyError
Concat PBFile,CLP%1,"DEMO1.PWR"
?FileExist PBFile,,CopyError
COPY PBFile,CLP%2
Compare DOSError,0,CopyError
Compare ErrorLevel,0,CopyError
Concat PBFile,CLP%1,"MENU1.PWR"
?FileExist PBFile,,CopyError
COPY PBFile,CLP%2
Compare DOSError,0,CopyError
Compare ErrorLevel,0,CopyError
Concat PBFile,CLP%1,"MOVE1.PWR"
?FileExist PBFile,,CopyError
COPY PBFile,CLP%2
Compare DOSError,0,CopyError
Compare ErrorLevel,0,CopyError
Concat PBFile,CLP%1,"MOVE2.PWR"
?FileExist PBFile,,CopyError
COPY PBFile,CLP%2
Compare DOSError,0,CopyError
Compare ErrorLevel,0,CopyError
Concat PBFile,CLP%1,"BOXDEMO1.PWR"
?FileExist PBFile,,CopyError
COPY PBFile,CLP%2
Compare DOSError,0,CopyError
Compare ErrorLevel,0,CopyError
Concat PBFile,CLP%1,"PBINSTAL.PWR"
?FileExist PBFile,,CopyError
COPY PBFile,CLP%2
Compare DOSError,0,CopyError
Compare ErrorLevel,0,CopyError
Concat PBFile,CLP%1,"DELETEPB.EXE"
?FileExist PBFile,,CopyError
COPY PBFile,CLP%2
Compare DOSError,0,CopyError
Compare ErrorLevel,0,CopyError
Concat PBFile,CLP%1,"REGISTER.FRM"
?FileExist PBFile,,CopyError
COPY PBFile,CLP%2
Compare DOSError,0,CopyError
Compare ErrorLevel,0,CopyError
Concat PBFile,CLP%1,"INVOICE.FRM"
?FileExist PBFile,,CopyError
COPY PBFile,CLP%2
Compare DOSError,0,CopyError
Compare ErrorLevel,0,CopyError
Concat PBFile,CLP%1,"VENDOR.DOC"
?FileExist PBFile,,CopyError
COPY PBFile,CLP%2
Compare DOSError,0,CopyError
Compare ErrorLevel,0,CopyError
Concat PBFile,CLP%1,"SYSOP.DOC"
?FileExist PBFile,,CopyError
COPY PBFile,CLP%2
Compare DOSError,0,CopyError
Compare ErrorLevel,0,CopyError
Halt 0
Label CopyError
WriteLine "Copy Not Successful...Aborting"
Beep 850,2
Halt 99